home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: Games / PC-SIG Games (PC-SIG).iso / 329 / ACEY.BAS (.txt) next >
Encoding:
GW-BASIC  |  1985-03-16  |  1.2 KB  |  50 lines

  1. 1  CLS:PRINT:PRINT:PRINT " A C E Y - D E U C E Y  G A M E"
  2. 11  PRINT "THIS IS A CARD GAME SIMILAR TO ACEY-DEUCEY WITH"
  3. 21  PRINT "THE EXCEPTION THAT NO SPLITS ARE ALLOWED. THE PLAY"
  4. 31  PRINT "IS DEALT TWO CARDS. HE MUST THEN BET ON IF THE NEXT"
  5. 41  PRINT "CARD DEALT WILL LIE NUMERICALLY BETWEEN THE FIRST"
  6. 51  PRINT "TWO.  ACES CAN COUNT AS EITHER 1 OR 14"
  7. 61  B=1000
  8. 71  INPUT "PRESS ENTER TO CONTINUE";A$:CLS
  9. 81  INPUT "PRESS ENTER TO DEAL THE FIRST TWO CARDS";A$
  10. 91  T=O
  11. 101  A=INT(RND*15):IF A=1 THEN 101:IF A=0 THEN GOTO 101
  12. 111  IF A>10 GOTO 171
  13. 121  REM
  14. 131  PRINT A:PRINT
  15. 141  IF T=0 GOTO 211
  16. 151  IF T=1 GOTO 231
  17. 161  GOTO 301
  18. 171  IF A=11 THEN PRINT "JACK"
  19. 181  IF A=12 THEN PRINT "QUEEN"
  20. 191  IF A=13 THEN PRINT "KING"
  21. 201  IF A=14 THEN PRINT "ACE":IF T=2 THEN GOSUB 411
  22. 211  F=A
  23. 221  T=T+1:GOTO 101
  24. 231  S=A:IF S=0 THEN GOTO 101
  25. 241  PRINT "YOUR ACCOUNT STANDS AT $";B
  26. 251  INPUT "HOW MUCH DO YOU BET";C
  27. 261  IF C>B GOTO 241
  28. 271  IF C>0 GOTO 291
  29. 281  CLS:PRINT "NEXT HAND...":GOTO 81
  30. 291  T=T+1:GOTO 101
  31. 301  Q=A
  32. 311  IF F<S GOTO 361
  33. 321  IF Q>S  AND Q<F THEN 381
  34. 331  PRINT "NO!! YOU LOSE!!":B=B-C
  35. 341  IF B<=0 GOTO 451
  36. 351  INPUT "PRESS ENTER TO CONTINUE";A$:GOTO 281
  37. 361  IF Q>F AND Q<S THEN 381
  38. 371  GOTO 331
  39. 381  PRINT "HURRAY! YOU WIN $";C:B=B+C
  40. 391  IF B>=10000 GOTO 471
  41. 401  GOTO 331
  42. 411  INPUT "DOES YOU ACE COUNT AS 1 OR 14";A
  43. 421  IF A=1 OR A=14 GOTO 441
  44. 431  PRINT "ILLEGAL VALUE":GOTO 411
  45. 441  RETURN
  46. 451  PRINT "YOU ARE ALL OUT OF MONEY, BRIGHTEYES."
  47. 461  END
  48. 471  PRINT "WOW! YOU HAVE BROKEN THE BANK WITH $";B$
  49. 481  END
  50.